home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / GCR_READ.ARC / RD TRK 15 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  392 b   |  20 lines
  1. 10 ;RD TRK 15
  2. 20 DT LDX #$00; STORE GCR DATA IN BUFFERS
  3. 30 STDA LDY #$00
  4. 40 STD LDA GCR2,Y
  5. 41 CMP #$00
  6. 42 BEQ STD3
  7. 50 STD1 STA $0000,Y; HIGH BYTE REPLACED FROM FORMAT
  8. 60 INY
  9. 70 BNE STD
  10. 80 INX
  11. 90 CPX #$02
  12. 100 BEQ STD2; INCREMENT HIGH BYTE OF BUFFERS
  13. 110 INC STD+2
  14. 140 INC STD1+2
  15. 170 JMP STDA
  16. 310 STD2 LDA #>GCR2; RESTORE HIGH BYTE OF GCR BUFFER
  17. 320 STA STD+2
  18. 330 STD3 RTS
  19. 1000 .FILE RD TRK 16
  20.